home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Demos / Component Software / FileFlex 2.0 / FileFlex-XFCN / FileFlex™ Goodies / FileFlex™ Goodies / stack_-1.xml < prev    next >
Extensible Markup Language  |  1994-08-21  |  5KB  |  24 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>5</cardCount>
  7.     <cardID>2981</cardID>
  8.     <listID>5144</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>448</width>
  14.         <height>264</height>
  15.     </cardSize>
  16.     <script>-- FileFlex Goodies Stack v1.0.1-- Developed by David Gewirtz-- Based on an earlier work by Dennis C. Chan and Dan Shafer-- FileFlex and The Relational Database Inside are-- trademarks of David Gewirtz under license to Component Software-- Industries Corporation.  This product and its documentation-- are ¬©1992-94 by David Gewirtz under license to Component Software-- Industries Corporation of Rocky Hill, NJ.  All rights reserved.on openStackif the version < 2 thenanswer "Requires HyperCard 2.0 or greater." with "Finder" or "Home"if it is "Finder" then doMenu "Quit"go homeend ifstart using stack "FileFlex‚Ñ¢"pass openStackend openStackon dbCheckResult resultCodeif resultCode ‚â• 0 or resultCode is empty then exit dbCheckResultanswer "FileFlex ERROR:" & return & return & dbErrorString(resultCode) & "." with "Abort"exit to HyperCardend dbCheckResultfunction dbErrorString valif val = -1 then put "General program error" into errelse if val=-2 then put "Database is empty" into errelse if val=-3 then put "Index is empty" into errelse if val=-4 then put "No such data field" into errelse if val=-5 then put "No such record" into errelse if val=-6 then put "Field not numeric" into errelse if val=-7 then put "Insufficient number of parameters" into errelse if val=-8 then put "Index file out of date" into errelse if val=-100 then put "File creation error" into errelse if val=-120 then put "File open error" into errelse if val=-140 then put "File read error" into errelse if val=-160 then put "File write error" into errelse if val=-180 then put "File close error" into errelse if val=-200 then put "Bad database file" into errelse if val=-240 then put "Database file not found" into errelse if val=-260 then put "Record length too large" into errelse if val=-280 then put "Record length inconsistent" into errelse if val=-310 then put "Error closing index file" into errelse if val=-320 then put "File is not an index file" into errelse if val=-330 then put "Index file is missing a key" into errelse if val=-340 then put "Key is not unique" into errelse if val=-350 then put "Key equates to a logical value" into errelse if val=-360 then put "Key length or type has changed or is invalid" into errelse if val=-370 then put "Key length exceeds 100 characters" into errelse if val=-380 then put "Seek attempted with no index file active" into errelse if val=-400 then put "File locking error (multiuser version only)" into errelse if val=-450 then put "File unlocking error (multiuser version only)" into errelse if val=-500 then put "Database not found during expr evaluation" into errelse if val=-510 then put "Attempt to evaluate null expression" into errelse if val=-515 then put "Illegal date in expression" into errelse if val=-520 then put "Expecting ',' or ')' in expression" into errelse if val=-530 then put "Incomplete expression" into errelse if val=-540 then put "Math overflow in expression" into errelse if val=-550 then put "Operator or parameter type mismatch" into errelse if val=-560 then put "Right bracket missing in expression" into errelse if val=-570 then put "Unrecognized function" into errelse if val=-575 then put "Unrecognized operator" into errelse if val=-580 then put "Unrecognized value" into errelse if val=-590 then put "Unterminated string in expression" into errelse if val=-900 then put "Out of memory" into errelse if val=-950 then put "Internal error" into errelse put "Unspecified error [" & val &"]" into errreturn errend dbErrorString</script>
  17.     <background id="2719" file="background_2719.xml" name="" />
  18.     <card id="2981" file="card_2981.xml" marked="false" name="goodies menu" owner="2719" />
  19.     <card id="4240" file="card_4240.xml" marked="false" name="create Database" owner="2719" />
  20.     <card id="6372" file="card_6372.xml" marked="false" name="view database" owner="2719" />
  21.     <card id="4749" file="card_4749.xml" marked="false" name="smart fields" owner="2719" />
  22.     <card id="5659" file="card_5659.xml" marked="false" name="full text error messages" owner="2719" />
  23. </stack>
  24.